Top 10k strings from Spectrum Computing - Issue 16 (1985)(ASP Software)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
9 ;" Press any key to contin" 8 6 nudges=nudges-1 5 ;" - = 20p"; 4 ;"************************"; 4 ;"*******" 4 ;"* *"; 4 ;" = 50p"; 4 ;" "; 3 a$(d1+d2)=" 3 FRAME=FRAME+1 3 ;"START THE TAPE": 3 ;" " 2 n$="Nothing" 2 l$="Press any key to continue. Press any key to contin": 2 fruit 2 ;"STOP THE TAPE" 2 ;"CDCDO_O_ 2 ;"************************" 2 ;"********************"; 2 ;" STOP THE TAPE " 2 ;" START THE TAPE " 2 ;" PRESS ANY KEY TO TURN PAGE " 2 ;" ";: 2 ;" "; 2 ;" "; 1 you=you+count 1 update 10P'S & TURNS 1 title screen 1 tens=tens-1 1 tens=tens+1 1 start the tape 1 set up & variables 1 select option 1 save tape routine 1 random place in reel 1 ramtop=65367 1 print up screen 1 print up reels 1 print up fruit 1 patterns 1 patcode 1 out of money screen 1 oranges & lemons tune 1 nudges routine 1 n$="Nothing": 1 n$="2 times": 1 n$="2 times" 1 n$="1 times": 1 n$="1 times" 1 menu screen 1 me=me+count 1 m$="8 times": 1 m$="4 times": 1 m$="2 times": 1 l$="Press any key to continue. Press any key to contin" 1 k$="+++CONGRATULATIONS!+++": 1 jHklCDCgkl 1 invcode2 1 invcode1 4 1 invaders 1 instructions screens 1 hooter S 1 hold routine 1 happy tune 1 hall of fame screen 1 goes=goes+1 1 gamble routine 1 enter high score 1 dice 1 data for udg's etc. 1 data for big chars 1 d(f)=d(f-1 1 d$(f)=d$(f-1 1 cover#15 1 count=count+x*(a$(x) 1 compute score 1 clear reel 1 check if win or not 1 border of fruit 1 bonus=bonus/2 1 bonus=bonus*2 1 b$="789:": 1 b$="3456": 1 b$="0122": 1 b$=",-./": 1 b$="()*+": 1 b$="$%&'": 1 aggregate dice 1 add on winnings if any 1 a$="123456789 1 a$(f,r(f)+g)="7" 1 a$(f,r(f)+g)="6" 1 a$(f,r(f)+g)="5" 1 a$(f,r(f)+g)="4" 1 a$(f,r(f)+g)="3" 1 a$(f,r(f)+g)="2" 1 a$(f,r(f)+g)="1" 1 Y=Y+((Z$="6" 1 X=X+((Z$="8" 1 SCORE ..... HI ..... LIVES 1 Print numbers in boxes 1 PATTERN GENERATOR PETE COOKE APRIL 85 1 PATTERN DISPLAY"; 1 Human's go 1 FRAME>MAXFRAME 1 FRAME=FRAME-(1 1 End of human's go 1 End of computer's go 1 Dice throw 1 Created with Ramsoft MakeTZX 1 Computer's go 1 Check for win 1 ADDR,APEEK: 1 ADDR,APEEK+128 1 @@@@@@@@ 1 =X-2X)=X-256 1 <,$$4< <,$$$$4<rRBBBBJN 1 ;f;l$;" "; 1 ;d$(f);" ";: 1 ;FRAME;" " 1 ;;"************************" 1 ;"yourself a place on the"; 1 ;"your own use in other programs, without being required to pro- nounce a single mnemonic. After using the digitless in- teractive hooter customiser to " 1 ;"you win enough to credit"; 1 ;"use them. When they are"; 1 ;"stay yellow for a while." 1 ;"routines. Please use the"; 1 ;"on the FRUIT MACHINE?"; 1 ;"now. (Max. 10 letters)"; 1 ;"in the ""HALL of FAME""."; 1 ;"hiWXINEF 1 ;"hiWXABEFWX 1 ;"held down they beep and"; 1 ;"go costs you 10p. Will"; 1 ;"following keys in play:-" 1 ;"flash from their normal"; 1 ;"enough to be ";l;l$;" place"; 1 ;"colour to yellow you can"; 1 ;"as bells and bars plus"; 1 ;"all normal fruit as well"; 1 ;"a nudge you NUDGE UP,"; 1 ;"Z ... Right"; 1 ;"You start with `1. Each"; 1 ;"You have survived long"; 1 ;"When any of these keys"; 1 ;"This program simulates the"'"lights often found in disco's"'"and allows you to design a"'"sequence of patterns of"'"lights." 1 ;"The winner is the player who covers the last number." 1 ;"The board consists of a grid of nine numbers. The aim of the game is to cover the numbers on the board with coins ( 1 ;"Speed : "; 1 ;"Score greater than 45:";p$;" lost." 1 ;"START. During a win you"; 1 ;"START TAPE." 1 ;"START TAPE": 1 ;"SPEED ";SPEED 1 ;"SAVE>TAPE" 1 ;"Q=QUIT"; 1 ;"Q-QUIT N-NEXT B-BACKUP R-REPEAT"; 1 ;"Press any key to roll the dice" 1 ;"Please enter your name"; 1 ;"PRESS SPACE"; 1 ;"PLEASE WAIT": 1 ;"PATTERN DISPLAY"; 1 ;"OLD SPEED ";SPEED; 1 ;"OLD NO.FRAMES ";MAXFRAME 1 ;"Nothing" 1 ;"NUDGES:" 1 ;"NUDGE DOWN or CANCEL." 1 ;"NO OF FRAMES ";MAXFRAME 1 ;"Loading ..."; 1 ;"LOADING....": 1 ;"LOAD<TAPE" 1 ;"L for Load next program" 1 ;"INSTRUCTIONS" 1 ;"INK ";INK 1 ;"How long can you survive"; 1 ;"HALL of FAME survivors?" 1 ;"GAMBLE:" 1 ;"GAMBLE, HOLDS and NUDGES"; 1 ;"GAMBLE or COLLECT."; 1 ;"FRUIT MACHINE features"; 1 ;"FRUIT MACHINE 1 ;"F-FILL C-CLEAR"; 1 ;"During a normal turn you"; 1 ;"During a hold you HOLD,"; 1 ;"Controls..."; 1 ;"Caps shift ... Left"; 1 ;"CURSORS (+S-SHIFT=FLIP BIT)"; 1 ;"CLEAR PATTERNS"; 1 ;"CANCEL or START. During"; 1 ;"BRIGHT ";BRIGHT 1 ;"B - Space ... Fire"; 1 ;"Any line or"; 1 ;"ARE YOU SURE? (Y/N)" 1 ;"ALTER SPEED/NO.OF FRAMES" 1 ;"ALTER COLOURS" 1 ;"A player's go continues until he is unable to cover any numbers with one throw of the dice. At this point the value ofthe uncovered numbers is added to the player's score. If this brings his score to 45 or over the player must retire." 1 ;"==>0<==" 1 ;"= start or collect"; 1 ;"= nudge a reel up"; 1 ;"= nudge a reel down"; 1 ;"= hold a reel"; 1 ;"= cancel or gamble"; 1 ;"9. LOAD NEXT PROGRAM" 1 ;"8. CLEAR PATTERNS"; 1 ;"8 times" 1 ;"7. LOAD<TAPE"; 1 ;"6. SAVE>TAPE"; 1 ;"5. ALTER SPEED/NO.OF FRAMES"; 1 ;"4. INSTRUCTIONS"; 1 ;"4 times" 1 ;"3. ALTER COLOURS"; 1 ;"2. ALTER SEQUENCE"; 1 ;"2 times" 1 ;"1. RUN"; 1 ;"1 times" 1 ;"1 & 2 ... Stop game." 1 ;"********************" 1 ;"***************": 1 ;"(key q, w or e)" 1 ;"(key a, s or d)" 1 ;"(key 5)" 1 ;"(key 4)" 1 ;"(key 1, 2 or 3)" 1 ;" diagonal: "; 1 ;" ^4 ^5 " 1 ;" STOP THE TAPE AND PRESS A KEY ": 1 ;" Press 0 (fast) to 9 (slow) to select speed. Space to play."; 1 ;" Page ";a;" ENTER=Next SPACE=Back": 1 ;" PRESS C TO COPY TO ZX PRINTER" 1 ;" PAYMENTS: 1 ;" My go " 1 ;" Invaders. "; 1 ;" Game Over ": 1 ;" A NEW HIGH SCORE " 1 ;" = `1 "; 1 ;" = 80p"; 1 ;" 3 = Quit program "; 1 ;" 2 = Start game "; 1 ;" 1 = Instructions "; 1 ;" - = 50p"; 1 ;" - = 40p"; 1 ;" - - = 10p"; 1 ;" ^Q ^W ^E "; 1 ;" ^A ^S ^D "; 1 ;" ^1 ^2 ^3 "; 1 ;" To select next option press- " 1 ;" Do you wish to add the dice? (Y/N)" 1 ;" 010 " 1 ;" 000 " 1 ;" Press any key to continue. " 1 ;" PRESS ANY KEY TO TURN PAGE ": 1 ;" PLACE A BLANK TAPE IN YOUR CASSETTE RECORDER " 1 ;" by Jason Smith "; 1 ;" WIZARD PRANG'S LITTLE BLACK BOX of MACHINE CODE WHEEZES (no soldering necessary)" 1 ;" Game over. ";p$;" won." 1 ;" ": 1 ;" SHUT THE BOX By W.J. Greenall " 1 ;" " 1 ;" "; 1 ;" Your go " 1 ;" " 1 ;" " 1 2Iq*)q#")q~ 1 ...................................................... 1 *(x$="4")-5 1 *(x$="3")-5 1 *(x$="2")-5 1 *(x$="1")-5 1 )="435261347153264251624753143" 1 )="346235247316521534612514734" 1 )="243516143574261352326417524" 1 )-((Z$="7" 1 )-((Z$="5" 1 ) by throwing the appropriate numberswith the dice. There are two dice and the values thrown may be taken separately or added together." 1 ''''''''''" CHANGES CHANGES" 1 '" This magazine is composed of a number of programs that chain together, so that each one will LOAD the next when you are ready for it." 1 '" Some of the programs on the tape may not be suitable for use with microdrives. " 1 '" SPECTRUM COMPUTING - ISSUE 16 FUTURE SUMMERS 1985 1 '" Press ENTER to go to next page"'" Press SPACE to go back a page" 1 '" PRESS L TO LOAD THE NEXT FILE"''" Or any other to read again." 1 '" EXTRA BITS!"''" That's right folks, 2 extra programs on the end of sides one and two. Many readers write requesting for early back issues of the tape mag. So due to popular demand, we have taken a trip down olde memory bank lane to bring you a total of four extra programs from issues two and three" 1 '" Any particular program can be LOADed using its file name listed on the contents page, but to 'read' everything in the magazine, it is easier to use the chaining." 1 $$$$$$$$$$ 1 "would like to clarify some" 1 "to be accepted for publication:" 1 "think about, submissions on the" 1 "things for new viewers." 1 "the CODE format. You can then LOAD it into a dummy REM state- ment and SAVE that in the usual BASIC format. This may seem the long way around, but it is less trouble than deleting every linein this program except the REM, which is the only other way I know of to get it on its own." 1 "tape to the address at the " 1 "start of this section. Payment" 1 "patterns" 1 "magazines. In this editorial I" 1 "machine code programming in the category of a black art for manycomputer users. Have no fear, for I am not a- bout to launch into a descrip- tion of the arcane virtues of indexed addressing or the like. Rather I would present you with" 1 "likely to be accepted." 1 "issue 16. I hope you caught the" 1 "is always on publication and is" 1 "invcode2" 1 "invcode1" 1 "invaders" 1 "hoot code" 1 "happy to accept 16 or 48K progs" 1 "handled by simple SAVE and LOAD commands along with the rest of the program. But in order to getthe code out of this program without also recording all of the rest of the BASIC lines, we will have to SAVE the routine in" 1 "for inclusion in Spectrum Comp." 1 "following subjects are more" 1 "each issue we will suggest some" 1 "create your own hoot, you will have an opportunity to save it on tape in easy to use form." 1 "between 20 and 100 pounds." 1 "article in CRASH about tape " 1 "areas we are short of." 1 "arcade game written in machine" 1 "all your programs, letters etc." 1 "a spell already made up, in a little black box which I advise you not to open. You have it on board already. It's the siren routine which coincides with the'stop tape' message on each filein this magazine, but in this program you can customise it for" 1 "To contribute simply send your" 1 "The subject is up to you but in" 1 "The following are less likely" 1 "SPEED (0-100)";SPEED 1 "Press any key to play again, or Press enter to quit." 1 "NO OF FRAMES (TILL REPEAT) ";MAXFRAME 1 "NAME OF FILE ";F$ 1 "MEGAPIG!","LOUISE","ROBDOG","CORRIE O.K","SCUM","WISEMAN","MR. BOYLE","MEATBALLS" 1 "INK+64*BRIGHT" 1 "INK COLOUR (1-7)";INK: 1 "Here are a few areas for you to" 1 "First, submissions, we welcome" 1 "BRIGHT (0-1) ";BRIGHT: 1 "Another point is that we are" 1 "ALTER FROM FRAME?";FRAME 1 "8*MAXFRAME" 1 "28460+8*FRAME+N", 1 "20 tons which is a very good" 1 "(28460+8*FRAME+N-8)": 1 " you a fortune in 10p's." 1 " written by Pete Cook of Leics." 1 " what about this one ?." 1 " unusual and we hope you like it" 1 " should test your memory to the" 1 " lighting effects on your" 1 " Well the next program is quite" 1 " Welcome to Spectrum Computing" 1 " The rest of side 2 contains" 1 " Star game '20 tons'" 1 " Side 2 starts with Simeon and" 1 " SPECTRUM." 1 " Press any key to turn the page " 1 " Memory test 'simeon'" 1 " It's called 'patterns' and was" 1 " It allows you to create Disco" 1 " Invaders is just what it says." 1 " Fruit machine which should save" 1 " Fruit machine 'fruit'" 1 " Fruit is by Jason Smith from" 1 " Four 'reviews'" 1 " Enough of the future issues" 1 " Editorial 'cover'" 1 " Disco light show 'patterns'" 1 " Classic arcade 'invaders'" 1 " Caithness. It is a full feature" 1 " your Spectrum" 1 " You may hold a control down aslong as you wish, but after some50 hoots it will have worked itsway back to its original value. The numerals move the value in one direction and the letters inthe opposite." 1 " Useful utility programs" 1 " Unusual adventure games" 1 " There is more to this game than meets the eye. As with all dice games there is a large ele-ment of luck, but the chance of making strategic choices is alsothere." 1 " The program will display this"'"sequence for up to 500 (16k)"'"or 4500 (48k) frames in an"'"endless loop." 1 " The hooting code requires fourdifferent parameters. You can adjust these simply by listeningto the changing sound as you trythe controls. These are-" 1 " The easiest way to include a bit of machine code in a BASIC program is by using the old ZX81trick of placing the code in a REM statement. It can then be " 1 " The dummy REM line must be thefirst program line, so that we know the address for the USR call. It must have at least 72 characters in it, after the REM,so there will be room for the code. It should look something like this- " 1 " Simple arcade games" 1 " Shut the box is an old board game involving dice."; 1 " Press any key for the instruc-tion page." 1 " Platform games" 1 " Note that once the text of thedummy REM has been replaced withmachine code, the Spectrum may refuse to LIST it, complaining of invalid colours, etc. This is okay, just use LIST 2 if you want to see the rest of the pro-gram." 1 " No. 1 - Press 1 or Q No. 2 - Press 2 or W No. 3 - Press 3 or E No. 4 - Press 4 or R " 1 " Magic, according to Larry Niv-en, is anything which you do notunderstand (anyone who does not know who Larry Niven is please leave this article now)! This definition would certainly put " 1 " Line 10 just hoots until a keyis pressed. Once you have typed in the above, ENTER LOAD"""" CODE and play the tape and you will have a complete hooter program to MERGE into other, less noisy routines." 1 " Hints on how to get more from" 1 " First you need to SAVE the hoot CODE on tape, if you wish to keep it. You can select this as an option now, or return to the custom hoot bender, or go onto the next section of the maga-zine. Press a key-- " 1 " Copies of current games" 1 " S to SAVE hoot B to bend another hoot M for next part of magazine " 1 " 1 REM IT DOESN'T MATTER WHAT I TYPE AS LONG AS I USE AT LEASTSEVENTY-TWO CHARACTERS 10 RANDOMISE USR 23760:IF INKEY$ ="""" THEN GO TO 10 " 1 " CONTENTS - SIDE TWO" 1 " CONTENTS - SIDE ONE" 1 SPECTRUM COMPUTING "; 1 APS LTD 222 REGENT ST. LONDON WIR 7DB TELEPHONE 01-439 0666 EDITOR - ROY GIBSON" 1 1985 Jason Smith" 1 ! "#$% &' ()*+, -./012>>:>>:6>>:2>>6>>:>>:6:6:>226:7=54A5A7=54?=539=4A5A7<7<A@6A<3AA:A>A7AA2A2227<2A>A7<7<A9A9<6>?<A547@>:9@>27<2A9@7@?<A227<355252235542552342525255252234BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC2>>2>:6:26:>>2>6:>>>6:>22>2>>:7=57=A7A>A<A9<A7<5A57<A@2A7=547<27<A7=A9<A?<A7<2A27<A9@A7<A:7@>7@A7<27<A52A?<2A27<A29A7@?<255254342345223522523452252552 1 @@@@@@@@ 1 " Press ENTER when you wish to quit this section. "